ATTR Syntax: Attr filename [permissions] Usage ; Examine or 
change the security permissions of a file Opts: -perm = turn off 
specif ied permission perm= turn on specified permission -a = 

rms : d - directory file 
tgs owner w - write permit 
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Synta] 
one &i 
single 
BasicO 
filenai 
CHD S; 
specifi 
directory 



AUSTRALIAN 
0S9 

NEWSLETTER 



m read permit to public 
fermitlo public BACKUP 
m Copies all data from 
lit error occurs s = 
Bites BASIC09 Syntax : 
IIBUILD Syntax: Build 
gglfrom standard input 
Ijp working directory to 
llfsage: Change execution 
pij filename! filename2 
Ifllntax: Cobbler devname 
Usage : Creates ' OS— til bootstrap file firom current boot CONFIG 
S vnta x i f% -~* 1 - tt ■ *"* — *■- — ± — *■ - - L - ---» — *•-- 



m 




Syntax 
one fil 
Date [t 
specify 
: Checl 
for woi 
= save 
cluster 
print 
Kdevn 
rilenan 
delete 
directo 

w w 

names 
execut 
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disks COPY 
data from 

.pgSyntax : 

mwk> Usage 
Msctory 
s -m 
ifunused 
1-0 = 
||fname> 
iel [-x] 
t|rx = 
JIDeldir 

itlax: Dir 
file 
x=print 

Usage 



■.•.•.•.-. •i-f.-f.' 




disk by using 0S9boot if present -b=<path> = make system disk 



to copy all files in a directory system Opts : -b make a system 

T]giT10 Dat * — nn flft111inri ■ — m liriiliaifhJ: — Lm — "* " — ~ ~ ■*■ ~ —— 1 ~~^1^» 1 — mr Aq T\f%f 

process b< makdir 

command CTDDT T A D V 1 O O C\ ^^^ K 
ECHO Syn F LjD K U AK I 1 y U U HUM"! 



output EE 



i 



text editdL 



error messages 
Usage: Chain 



ij^ ! Kw.iL»^. ' M r j;44uuwMfc^^ 



':v: : :v>y.:: : :-:v:v:v; : : : : ; 



*^S!^!^JJ 



Mnted 



b'.','.-+'.y.-y. ;•;■:■;■:■:■:■:'!■:'"■:■"■;■:-: 



■R "»ame> 



U^V.W.'lWA 1 



ax 



<devname> Usage : Initializes an 0S-9 diskette Opts ; R - Ready L 
- Logical format only "disk name" 1/2 number of sides 'No of 
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Does OS-9 have a future? Or perhaps more appropriately the question should be, does OS-9 have a future in the 
personal computer world? If the enthusiasm of the dedicated 0S-9ers is to have a significant bearing, then 0S-9 
mill certainly have a future. The membership of our National User Group continues to grow and most members seem 
eager for new knowledge and equally eager to help others. 

While OS-9 is supported by a number of computers, the Tandy Color Computer is the most commonly used by our 
membership. Whilst many CoCo owners may have been a little concerned by the decision of Inter tan Australia to drop 
the CoCoi we have continued to source hardware and software from overseas. Many of us continue to upgrade our 
favourite CoCo in one way or another. 

There is an almost endless supply of quality programs and utilities available from the the U.S. and our members 
here in Australia continue to develop new software for all sorts of applications. The reputable suppliers in the 
U.S. provide a very professional approach to every request. In this edition our own Rob Mackay has submitted some 
hints on placing orders from U.S. suppliers. (Thanks Rob.) 

When Intertan Australia discontinued the Color Computer from the Australian product range, we heard that Tandy in 
the U.S. also had plans to drop the CoCo. We understand that it was dropped from their range in Canada a few 
months ago t and we have correspondence from Intertan which confirms that the Color Computer has now been dropped 
from the product line in the U.S. So there you have it, no more CoCo's from Tandy. Intertan Australia have 
advised that a listing of companies and individuals dealing in Color Computer hardware and software products is at 
present being prepared. They have made a note to send us a copy in due course. 

We have seen mention of a new CoCo 4 through the U.S. OS-9 user group. An OS-9 computer produced, not by Tandy, 
but by the U.S. OS-9 User Group. Details of such a machine are unconfirmed at this stage. We can only hope that a 
CoCo A is something more tangible than a wish list item. 

Do you use a hard disk ? Up to now, I don't, but this is about to change. OS-9 is such a powerful and absolutely 
intriguing operating system that everybody seems to be making the investment (that's not what my wife would call 
it) in a hard disk system. It almost seems that if I don't go hard disk, I will soon be the only one in Australia 
running OS-9 from floppies. So, OS-9 is far from dead, even the CoCo 3 is far from dead. 

In this edition, we present a submission from Jules Ambrosi which, as he describes, is a simple Database written in 
Basic39. Jules provided a disk with the source code and 'Docs' as well as a Packed version for us to trial. I 
have run his Database and must report that I find it very effective. (Thanks Jules.) This Basic89 program is well 
worth the effort it will take to type out the source code listing. Jules comments that when running from a floppy* 
you can expect a bit of a wait when using such things as "find" and "sort". I used this Database with the the file 
in a ramdisk, and in this mode it seems to run like a 'blur'. 

I know that we make a lot of reference to the CoCo and present articles which are in many cases CoCo specific. We 
would like to include OS-9 articles for other systems as well, so how about sending us something about your 
favourite machine. 

I will leave you to ponder the question of OS-9's future in the personal computer world and trust that you find 
something of interest in this month's edition. 

Gordon Bent z en. 
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A BASIC09 DATABASE PROGRAMME 

The following programme and its accompanying description were sent to us by one of the more experienced 
members of the National User Group. Ue applaud his efforts, and his decision to share with all of us the 
fruits of his labours. 

Ue feel obliged, however, to point out that the structured nature of Basic09 really cries out for 
MODULAR programming by the use of procedures. In Jules' programme, he makes considerable use of line 
numbers, and GOSUB's to those line numbers. This makes the programme fairly difficult to read, and 
extremely difficult to debug. The use of procedures would have certainly made the programme easier to 
understand, much easier to debug, and allow for easy future modifications and enhancements. 

Having said all that, this programme really is a fine effort. It should show to all of us just what 
can be done with perseverance and patience. 

Thank you Jules, on behalf of all of the members, for your efforts. Ed. 

*** HELP for Database09 *** December 1989. 

Database09 is a basic database manager for OS-9 systems. It requires Basic09, Runb, Del, and Copy. 
It should run on any OS-9 Level 2 system but don't hold me to that. It was written on a CoCo III with 30 
meg Hard Drive. Your printer must be connected and turned on while using DataBase09. Records in Database09 
have a fixed format, but this may be changed by altering the source code. You get 5 strings of 64 
characters each, 200 records per file. Each string (item) has a title. Use the Create option to open a 
new file. Give it a filename, name each of the items, and decide how many records in the file. 

Set the filename and printer path defaults with New filenames. A CR at the printer name input will 
default to ' /?' . You can send printer output to a textfile by entering a filename here. Then you can 
include it in a word processor file. Use the View/Edit option to input data into the file. The prompts 
here are self-explanatory. You may edit the titles of the items by editing record #0 (zero) at any time. 

Since a database may be several hundred records long, I included a Search for string function. Say 
you need to find a phone number in a mailing list, but can't remember the person's last name? Just type 
in the first name (get the capitals right!) or anything else you think is in their file. DataBase09 will 
search until it finds the first occurrence of the name anyplace in any item, in any record. Caution: be 
prepared for a wait in a long database! You can also print your findings, to create a mailing list of all 
your friends in a certain city, ect. A further note is that on my 30 meg hard drive, it does not take long 
to go through my big database, but on a floppy disk, be prepared for a wait. Sorry about that, but OS9 
needs a hard drive. 

You may wish to sort your data alphabetically. You can do this, too, and sort on any item. Two 
cautions here: the sort is limited to the first 10 characters of the item sorted on. Also, say you have 
two 'Smith, John' records, with different addresses. They will be sorted so one is after the other, but 
in the SAME order they were in the original, unsorted file. 

DataBase09 was written out of necessity in about 4 hours, with another 4 hours of adding bells & 
whistles. I needed a way to keep track of all the people name and address for my BBS's list. I will not 
be constantly updating this program for new features, so if you want improvements, write to me. I'd 
appreciate it, if you would continue to give me credit for my effort by leaving my name intact in the 
source code. Thanks, and enjoy! 

Address all questions and queries to;- Jules Ambrosi 

P.O. Box 341, 
Niddrie, 3042. 

Notes about Version 2.0 to those who had version 1. Not too much has changed. A search function 
has been added to the View/Edit section, so you need not leave this part just to search for a new record. 
The old search function has been retained as Find and Print, which is what it does best anyway. It can 
print all records with the target text, ect. 

PROCEDURE DataBase09 * 00C1 ON ERROR GOTO 340 

00C7 TYPE file=one:STRING[64]; 

\two : STRING[ 64]; three: STRING [64]; 

0000 REM * DataBase 0S9 version 2.0 \four:STRING[64 ]; f i ve:STRING[64] 

001D REM * by Jules Ambrosi 0103 DIM rec:file 

0032 REM * With thanks to S. Robertson for 010C TYPE index=name:STRING[10]; 

\so much help \rnum: INTEGER 

0063 REM * A simple database for OS-9 0122 DIM sort(200) : index 

\ Level 2 0130 DIM tempS: index 

008B REM * Look for the text help file 0139 DIM cmp:STRING[1 0] 

\called Database09.doc 0145 DIM pass, j , top,bot, a,x,num, recnum. 
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016C 

0173 

0184 

0195 

01A6 

01B1 

01C9 

01 D3 

01DB 

01E2 

01E9 

01 F2 

0203 10 

020A 

021 F 

0234 

0236 

024B 

0254 

0256 

026E 

0270 

0282 

028E 100 

0295 

02B2 

02CB 

02E5 

02FE 

0318 

0337 

0356 

0366 

0368 

037D 

0386 

039D 

03AF 

03C5 

03DO 

03D4 110 

041E 120 
0425 

044D 
044F 
0467 
0473 
0491 
04A2 
04AB 
04AF 
04B1 

04DB 



\recsize:INTEGER 

DIM interchange:BOOLEAN 

DIM title(5):STRING[64] 

DIM f ield(5):STRING[64] 

DIM prnt(5):STRING[1] 

DIM path,output:BYTE 

DIM a$,cls,ti$,prt$:STRING[1] 

recsize=SIZE( rec ) 

cls=CHR$(12) 

path=4 

output=5 

out$="/P" 

REM FILES QUESTION 

GOSUB 280 

<N>ew file" 
<0>ld file" 



PRINT " 

PRINT " 

PRINT 

PRINT " 

GET #0,a$ 

PRINT 

IF a$="N" 

PRINT 

INPUT "Fi lename? 

REM MAIN MENU 

GOSUB 280 

PRINT 



Choice? "; 



OR a$="n" THEN 220 



fl$ 



<V>iew/Edit records" 
<N>ew filenames" 
<F>ind and Print" 
<S>ort database" 
<P>rint database" 
<C>reate new database" 
<0>S-9 Shell Commands" 
<Q>uit" 



PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT " 

PRINT 

PRINT " Choice ? >"; 

GET #0,a$ 

q$="NVFSPCOQnvfspcoq" 

FOR x=1 TO LEN(q$) 

IF a$=MID$(q$,x,1 ) THEN 110 
NEXT x 
GOTO 100 

ON x GOTO 120,150,230,260,200,220,140, 
\1 30, 120, 150, 230, 260, 200, 220, 140, 130 
GOSUB 280 
PRINT "Set your input and output 

\f i lenames. " 
PRINT 

INPUT "Input filename? ",fl$ 
IF fl$="" THEN 

PRINT "You must enter a filename." 

PRINT "Press ENTER "; 

GET #0,a$ 

GOTO 120 
ENDIF 
PRINT "Enter pathname of printer(i.e. 

\'/P' or" 
INPUT "output textfile:( i.e. filename 
\ ",out$ 



0503 




IF out$="" THEN out$="/p" 


0517 




ENDIF 


0519 




GOTO 100 


051D 


130 


GOSUB 280 


0524 




REM QUIT PROGRAM 


0533 




REM Open overlay window 


0549 


135 


SHELL "display 1b 3d 01" 


0560 




SHELL "display 1b 22 01 C 8 30 B 02 00 
\00" 


0586 




REM Choose options * 


0599 




PRINT 


059B 




PRINT " Enter <1> to shell to OS9" 


05BD 




PRINT 


05BF 




PRINT " Enter <2> to restart 



05E4 

05E6 

0600 

0602 

060B 

0610 

0627 

0638 

064C 

0660 136 

0685 

068E 

0690 

06A5 

06AB 137 

06B0 

06B2 

06B6 140 

06CF 

06D1 

06DE 

06ED 

06F2 

06F4 

0710 

0719 

071D 150 

0724 

0745 
0747 
0753 
075A 

077B 

0785 

0790 

0792 

0799 

07A3 

07AC 

07B6 

07BA 

07C5 

07CB 

07D5 

07E8 

07F3 

0801 

0805 160 

0813 

081A 

0828 

0833 

083 D 
0849 
084D 

084 F 
0853 
0857 
0873 
088F 
08AE 
08B7 
08B9 
08D1 
08E6 
08EF 
08F3 
090F 
091 B 



\program" 
PRINT 

PRINT " Enter <3> to quit" 
PRINT 
PRINT " 
INPUT 2 

REM Close overlay window 
SHELL "display 1b 23" 
SHELL "display 1b 3d 00" 
ON 2 GOTO 140,10,136 

PRINT "Sure you want to Quit (Y/N)? "; 
GET #0,a$ 
PRINT 
IF a$="Y" OR a$="y" THEN 

PRINT els; 

END 
ENDIF 
GOTO 100 

PRINT els; "Shell commands" 
PRINT 

INPUT "OS9>:",sh$ 
IF sh$="" THEN 100 
SHELL sh$ 
PRINT 

PRINT "Completed. Press ENTER "; 
GET #0,a$ 
GOTO 100 
GOSUB 280 
PRINT "View, Edit, or Search records" 

PRINT 

PRINT "Working"; 
ot$="" 

IF outSo'Vp" AND out$o"/P" AND 
\ out$o"/Pl" THEN 

CREATE #output,out$ 

ot$="FILE" 
ENDIF 
recnum=0 
OPEN #path,fl$ 
SEEK #path,0 
GET #path,rec 
GOSUB 290 
WHILE NOT(EOF(#path)) DO 

PRINT "."; 

GET #path,rec 

IF rec.one=" " THEN 160 

recnum=recnum+1 

SEEK #path, recnum*recsize 
ENDWHILE 
top=recnum-1 
recnum=1 

SEEK #path, recnum*recsize 
WHILE NOT(EOF(#path)) DO 

GET #path,rec 

IF recnum=0 THEN 
GOSUB 290 

ENDIF 

GOSUB 300 

GOSUB 330 

PRINT M <N>ext, <B>ack, <P>rint," 

PRINT "<G>oto, <L>ast, <F>irst," 

PRINT "<E>dit, <Q>uit, <S>earch: "; 

GET #0,a$ 

PRINT 

IF a$="Q" OR a$="q" THEN 190 

IF a$="S" OR a$="s" THEN 
oldrec=recnum 
GOSUB 330 

INPUT "Text to search for: ",find$ 
PRINT "Working"; 
FOR recnum=1 TO top 
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092C 


PRINT "."; 




0C27 


0932 


SEEK #path,recnum*recsize 


0C29 


0940 


GET #path,rec 




0C42 


094A 


GOSUB 300 




0C4B 


094E 


FOR i=1 TO 5 




0C4D 


0960 


IF SUBSTR(find$,f ie 


ld( i))<>0 


0C5C 




\THEN 180 




0C75 


0977 


NEXT i 




0C8E 


0982 


NEXT recnum 




0CA3 


098D 


recnum=oldrec 




0CB3 


0996 


PRINT 




OCDO 


0998 


PRINT "Not found. Press 


ENTER "; 


OCDD 


09B4 


GET #0,a$ 




OCDF 


09B0 


ENOIF 




OCEA 


09BF 


IF a$="P" OR a$="p" THEN 




OCEC 


09D4 


IF ot$="FILE" THEN 






09E4 


GOSUB 320 




ODOD 


09E8 


ELSE 




0D19 


09EC 


OPEN #output,out$:WRITE 


0D1D 


09F8 


GOSUB 320 




0D27 


09FC 


CLOSE #output 




0D29 


0A02 


ENDIF 




0037 


0A04 


ENDIF 




0D41 


0A06 


IF a$="N" OR a$=• , n ,, THEN 




0D4A 


0A1B 


recnum=recnum+1 




0054 


0A26 


ENDIF 




0058 


0A28 


IF a$="B" OR a$="b" THEN 




0D6C 


0A3D 


recnum=recnum-1 




0D7A 


0A48 


ENDIF 




0087 


0A4A 


IF a$="F" OR a$="f" THEN 




0091 


0A5F 


recnum=1 




0DA4 


0A66 


ENDIF 




0DA8 


0A68 


IF a$="L" OR a$="l" THEN 




ODBD 


0A70 


recnum=top 




0DD2 


0A85 


ENDIF 




0DD4 


0A87 


IF a$="G" OR a$= M g" THEN 




ODEA 


0A9C 


INPUT "Goto Record #", recnum 


0DF9 


0AB1 


ENDIF 






0AB3 


IF a$="E" OR a$="e" THEN 




0E11 


0AC8 170 


GOSUB 330 




0E15 


OACF 


PRINT "Edit which field 


I (Q=Quit)? 






\"; 




0E30 


OAEF 


GET #0,a$ 




0E3D 


0AF8 


PRINT 




0E3F 


OAFA 


IF aS^'Q" OR a$="q" THEN 


0E41 


OBOF 


GOSUB 310 




0E4C 


0B13 


SEEK #path, recnum*recsi ze 


0E56 


0B21 


PUT #path,rec 




0E61 210 


0B2B 


GOTO 180 




0E6A 


0B2F 


ENDIF 




0E70 


0B31 


ac=ASC(a$) 




0E74 220 


0B3B 


IF ac>53 OR ac<49 THEN 


170 


0E7B 


0B53 


a=VAL(a$) 




0E91 


0B5D 


PRINT els; "Hake changes 


;. ENTER=No 


0E93 




\change." 




0EA5 


0B83 


PRINT 




0EB4 


0B85 


PRINT a; " "; title(a) 




0ED6 


0B95 


PRINT field(a) 




OEEB 


0B9D 


READ #0,b$ 




0F00 


0BA6 


IF b$= ,,,, THEN 170 




0F15 


0BB5 


f ield(a)=b$. 




0F2A 


0BC1 


GOTO 170 




0F3F 


0BC5 


ENDIF 






0BC7 180 


SEEK #path,recnum*recsize 




0F63 


0BD8 


ENDUHILE 




0F6F 


OBOC 190 


CLOSE #path 




0F7B 


0BE5 


IF ot$*="FILE" THEN 




0F84 


0BF5 


CLOSE #output 




0F8E 


OBFB 


ENDIF 




0F9A 


OBFO 


GOTO 100 




0FA6 


0C01 200 


GOSUB 280 




0FB2 


0C08 


PRINT "Print records in "•; 


fl$; •"." 


OFBE 



PRINT 

PRINT "Print titles (Y/N)? "; 
GET #0,ti$ 
PRINT 

IF ti$="" THEN 100 
INPUT "Starting record? ", start 
INPUT " Ending record? ",ender 
IF ti$o"Y" AND ti$o M y" THEN 
FOR x=1 TO 5 

PRINT " Print field "; x; "? "; 
GET #0,prnt(x) 
PRINT 
NEXT x 
ENDIF 

IF out$="/p" OR out$="/P" OR 
\out$= ,, /P1" THEN 
OPEN #output,out$:WRITE 
ELSE 

CREATE #output,out$ 
ENDIF 

PRINT "Working..." 
OPEN #path,fl$ 
SEEK #path,0 
GET #path,rec 
GOSUB 290 

FOR recnum=start TO ender 
SEEK #path,recnum*recsize 
IF EOF(#path) THEN 210 
GET #path,rec 
IF rec. one=" " THEN 210 
GOSUB 300 
IF ti$="Y" OR ti$="y" THEN 

WRITE #output, "RECORD #"; recnum 
ENOIF 
FOR num=1 TO 5 

IF ti$="Y" OR ti$="y" THEN 

WRITE #output,title(num); " "; 
\f ield(num) 
ELSE 

IF prnt(num)="Y" OR 
\prnt(num)="y" THEN 

WRITE #output # f ield(num) 
ENOIF 
ENOIF 
NEXT num 

WRITE #output," " 
NEXT recnum 
CLOSE #output 
CLOSE #path 
GOTO 100 
GOSUB 280 

PRINT "Create a new file." 
PRINT 

INPUT "Filename? ",fl$ 
IF fl$="" THEN 100 

PRINT "Enter titles for the 5 fields.' 
INPUT "Field 1? ", rec. one 



INPUT "Field 2? 

INPUT "Field 3? 

INPUT "Field 4? 

INPUT "Field 5? 



rec. two 
rec. three 
reef our 
reef i ve 



INPUT "How many records (200 max)? 

\",num 
CREATE #path,f l$:UPDATE 
PRINT "Working"; 
SEEK #path,0 
PUT #path,rec 
rec.one=" " 
rec.two=" " 
reethree=" " 
rec.four=" " 
rec.five=" " 
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OFCA FOR sk=1 TO num 

OFOO PRINT "."; 

0FE3 SEEK #path, sk*recs i ze 

0FF2 PUT #path,rec 

OFFC NEXT sk 

1007 CLOSE #path 

1000 GOTO 100 

1011 230 GOSUB 280 

1018 PRINT "Find records and print." 

1033 PRINT 

1035 INPUT "Text to find: ",find$ 

104B IF find$= ,,M THEN 100 

105A PRINT "Print fields that have it 

\(Y/N)? "; 

1080 GET #0 f prt$ 

1089 PRINT 

108B IF prt$="Y" OR prt$= ,, y" THEN 

10A0 PRINT "Print titles (Y/N)? "; 

10B9 GET #0,ti$ 

10C2 PRINT 

10C4 prt$="Y" 

10CC IF out$="/p" OR out$="/P" OR 

\out$= , 7P1" THEN 

10ED OPEN #output,out$:WRITE 

10F9 ELSE 

10FD CREATE #output,out$ 

1107 ENDIF 

1109 ENOIF 

11 0B recnum=0 

1112 OPEN #path.fl$ 

11 1 C PRINT "Working"; 

1128 SEEK #path,recnum 

1132 WHILE NOT(EOF(#path)) DO 

113D PRINT "."; 

1143 GET #path,rec 

1140 IF rec.one=" " THEN 240 

1160 IF recnum=0 THEN 

116C GOSUB 290 

1170 ENDIF 

1172 GOSUB 300 

1176 GOSUB 250 

117A recnum=recnum+1 

1185 SEEK #path, recnum*recsize 

1193 ENDWHILE 
1197 240 CLOSE #path 

11A0 PRINT 

11A2 IF prt$="Y" THEN 

11 AF CLOSE #output 

11B5 PRINT "Done. Press ENTER"; 

11CB ELSE 

11CF PRINT "Not found. Press ENTER"; 

11 EA ENDIF 

11EC GET #0,a$ 

11F5 GOTO 100 
11F9 250 FOR i=1 TO 5 

120E IF SUBSTR(find$,field(i))<>0 THEN 

1222 IF prt$="Y" THEN 

122F IF ti$="Y" OR ti$="y" THEN 

1244 GOSUB 320 

1248 ELSE 

124C FOR x=1 TO 5 

125C WRITE #output,field(x) 

1269 NEXT x 

1274 WRITE #output,"" 

127D ENDIF 

127F ELSE 

1283 GOSUB 330 

1287 PRINT 

1289 PRINT "Is this it (Y/N)? "; 

12A0 GET #0,a$ 

12A9 PRINT 

12AB IF a$="Y" OR a$="y" THEN 



12C0 


CLOSE #path 


12C6 


PRINT "Press ENTER when done 




\"; 


12E2 


GET #0,a$ 


12EB 


GOTO 100 


12EF 


ENDIF 


12F1 


PRINT "Working"; 


12FD 


ENDIF 


12FF 


ENDIF 


1301 


NEXT i 


130C 


RETURN 



130E 260 GOSUB 280 

1315 PRINT "Sort *"; fl$; '• * 

\alphabetically." 

1337 PRINT 

1339 PRINT "Sort on which field (1-5)? "; 

1359 GET #0,a$ 

1362 itm=VAL(a$) 

136B fl2$=fl$+"_BAK" 

137A PRINT 

137C PRINT "Making unsorted backup file: 

\fl2$ 

13A1 sh$="copy "+fl$+" "+fl2$ 

13B9 del$="del "+fl$+" BAK" 

13CF SHELL del$ 

13D4 SHELL sh$ 

13D9 PRINT "Loading file." 

13EA OPEN #path,U$ 

13F4 GET #path,rec 

13FE GOSUB 290 

1402 recnum=1 

1409 SEEK #path,recsize 

1413 WHILE NOT(EOF(#path)) DO 

141E GET #path,rec 

1428 IF rec.one=" " THEN 270 

143B GOSUB 300 

143F sort(recnum).name=f ield(itm) 

1452 sort(recnum) . rnum=recnum 

1461 recnum=recnum+1 

146C SEEK #path, recnum*recs i ze 

147A ENDWHILE 
147E 270 CLOSE #path 

1487 bot=1 

148E top=recnum-1 

1499 interchange:=TRUE 

149F pass=1 

14A6 PRINT "Sorting file." 

14B7 WHILE pass<=top-1 AND interchange DO 

14CB interchange:=FALSE 

14D1 FOR j=1 TO top-pass 

14E6 IF sort( j ).name>sort( j+1 ).name 

\THEN 

1502 interchange=TRUE 

1508 temp$=sort( j ) 

1513 sort( j )=sort( j+1) 

1525 sort(j+1)=temp$ 

1534 ENDIF 

1536 NEXT j 

1541 pass=pass+1 

154C ENDWHILE 

1550 PRINT "Writing sorted file: "; fl$ 

156D OPEN #output # fl$ 

1577 recnum=1 

157E SEEK #output, recsize 

1588 OPEN #path,fl2$ 

1592 FOR idx=1 TO top 

15A5 SEEK #path,sort(idx).rnum*recsize 

15BA GET #path,rec 

15C4 PUT #outpuJ,rec 

15CE recnum=recnum+1 

15D9 SEEK #output,recnum*recsize 

15E7 NEXT idx 
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15F2 




CLOSE #output 


15F8 




CLOSE #path 


15FE 




PRINT 


1600 




PRINT "Delete backup copy (Y/N)? 


161 F 




GET #0,a$ 


1628 




PRINT 


162A 




IF a$="Y" OR a$="y" THEN 


163F 




sh$="del "+fl2$ 


164E 




SHELL sh$ 


1653 




ENDIF 


1655 




PRINT "Done, press ENTER"; 


166B 




GET #0,a$ 


1674 




GOTO 100 


1678 


280 


PRINT els; " *** DataBase 09 

\" 
PRINT " by Jules Ambrosi 


16A1 




16C1 




PRINT 


16C3 




recnum=0 


16CA 




RETURN 


16CC 


290 


title(1 )=rec.one 


16DD 




title(2)=rec.two 


16EB 




title(3)=rec. three 


16F9 




title(4)=rec.four 


1707 




ti tle(5)=rec.f ive 


1715 




RETURN 


1717 


300 


f ield(1 )=rec.one 


1728 




f ield(2)=rec.two 


1736 




f ield(3)=rec. three 


1744 




f ield(4)=rec. four 


1752 




f ield(5)=rec.f ive 


1760 




RETURN 



1762 


310 


rec.one=f ield(1 ) 


1773 




rec. two=f ield(2) 


1781 




rec.three=f ield(3) 


178F 




rec.four=f ield(4) 


179D 




reef ive=f ield(5) 


17AB 




RETURN 


17AD 


320 


WRITE #output,"FILE: "; fl$; ' 
\RECORD #"; recnum 


17D6 




FOR x=1 TO 5 


17E6 




WRITE #output,title(x); " "; 
\field(x) 


17FE 




NEXT x 


1809 




WRITE #output f "" 


1812 




RETURN 


1814 


330 


PRINT els; "Record #"; recnum 


182B 




FOR d=1 TO 5 


183D 




PRINT d; " "; title(d); " ", 
\fieLd(d) 


185A 




NEXT d 


1865 




PRINT 


1867 




RETURN 


1869 


340 


eror=ERR 


1873 




PRINT 


1875 




PRINT "Error #"; eror 


1884 




IF eror=246 THEN 


1891 




PRINT "Turn your printer on 


18AA 




ENDIF 


18AC 




PRINT "Press ENTER"; 


18BC 




GET #0,a$ 


18C5 




GOTO 100 



ooooooooooOOOOOOOOOOoooooooooo 



SHELLSCRIPTS WITH BELLS AND WHISTLES 



Well, I think it's finally time that we came really to grips with all of the features of both the 
Windint windowing system, and all of the goodies that go with Shellplus 2.x. 

One of my pet hates about any computing system, and the programmes written for it, is the tendency 
for programmers to write code for specific applications, and system environment setups. I guess that some 
of that criticism should be even levelled at the following shellscript, as it assumes a number of things 
about your system. (More of that later.) 

I use my computer for a number of different activities. These include programming, letter writing, 
hacking, writing articles for this newsletter, and yes, even occasionally playing games. I spend a great 
deal of my time at the keyboard, and consequently I decided to purchase a hard drive to eliminate the 
constant need for swapping disks. For some time, it seemed that all I had done was to swap from one problem 
to another. Because now I think I am getting RSI from typing long directory names. 

You see, the complexity of my hard drive has increased to the stage where I have some 120 directories 

containing more than 1000 separate files. I take pride in the fact that my hard disk is well structured, 

and I maintain a regular backup schedule. I always delete any temporary files, and in general try to keep 
my system tidy. 

An unfortunate side effect of this is that I now have got to the stage of having some very long 
pathnames that lead to particular programmes that I frequently use. One of these is the Stylograph (C) 
wordprocessing system. 

I get quite sick of typing lines that look like : 

chd /H0/USR/STYLO/DOCS 
chx /H0/USR/STYLO/CMDS 

So I decided to do something about it and in doing so, I decided that I should try to use some of 
the features of both shellplus, and our great little system. 



Page 7 



February 1990 



AUSTRALIAN OS 9 NEWSLETTER 



The structure of my hard disk looks (in part) like this : 
/HO ---0S9Boot 
-CMDS 
--USR-- 

--CCOMP-- 

--STYLO-- 

--CMDS 
--STY 
--DOCS 
--PASC-- 



--SYS 



and this leads to the problem of long directory names 



But first of all, lets take a look at the source 

* Shellscript for starting an Editor 

* in a Complex Directory Structure 

* (C) D.A. Berrie 1990 

* 

"Start 

load prompt 

onerr goto erlp2 

var.1="/d1/docs" ** Change this string to point 

* to your document directory 
display 1b 22 01 08 04 46 Of 02 02 

display 1b 22 01 06 03 46 Of 05 07 

display 1b 22 01 08 04 42 Od 02 00 

display 1b 22 00 0a 05 3e 0b 02 00 

tmode .1 pause pag=11 

*loop1 

dir X1 

display a 

display 1b 32 04 

echo Type Full Directory Pathlist and press ENTER 

echo or Type Filename and press ENTER to accept 

display 1b 32 02 

prompt: 

var.1 

if 5S1 > 

els 

if -D X1 

chd %1 

goto loopl 

endi f 

end if 

*loop2 

display 1b 23 

display 1b 23 

display 1b 23 

display 1b 23 

chx /d1/cmds ** Change this string to point to 

* your editor execution directory 
path=/d0/cmds ** To allow for subshell access to 

* normal execution directory 



code for the shellscript. 

display 1b 20 02 00 00 50 18 00 01 01 
onerr goto erlpl 



>/w7 



display 1b 21 >/w7 

display 05 20 >/w7 

display 1b 22 00 12 10 30 05 02 02 0c >/w7 

display 1b 22 00 10 Of 30 05 03 04 0c >/w7 

display 1b 22 00 12 10 2c 03 02 00 0c >/w7 

display 1b 22 00 14 11 28 01 02 00 0c >/w7 

prompt Edit File : X1 >/w7 

display 1b 23 >/w7 

display 1b 23 >/w7 

display 1b 23 >/w7 

display 1b 23 >/w7 

display 02 36 2c >/w7 

display 1f 24 >/w7 

echo PLEASE WAIT WHILE MODULES ARE LOADED >/w7 

display 1f 25 >/w7 

stylo %1 <>»/w7 ** Insert your normal editor ' 

command f i lename 
*erlp1 

display 1b 21 >/1 
display 1b 24 >/w7 
deiniz w7 
goto end 
*erlp2 

display 1b 23 
display 1b 23 
display 1b 23 
display 1b 23 
*end 

unlink prompt 
tmode .1 pause pag=24 
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I guess that I had better try to give some explanation as to what exactly happens in this shellscript, 
where changes might be made, and some of the ' idio(t Jsyncrasies ' of both my programming and the system. 

The first thing to note is that the system (I don't know which part) does not allow changing of the 
current device window (using the window select string: display 1b 21 >/wX) from a procedure file!! 

If you type the command string manually (ie from your keyboard) it works fine. If you use calls to 
device window select routines from programmes written in higher level languages, they too work fine. If, 
however, you include the device window select command in a procedure file, is does not work. There is a 
way to get around this limitation however. The method is provided by the use of the data module feature 
of shellplus. You will, however, need to have access to the datamod utility, in order to change the 
textf i le into a data module. This module, and the prompt ut i li ty mentioned in the next paragraph are public 
domain programmes, and are included with the latest shellplus archive. Because the datamod utility creates 
in memory data modules, you must load these packed shellscript modules into memory in order to execute them. 

You will need access, either in memory, execution directory or execution path, to the following 
executable programmes in order to successfully run this shellscript. 

load; prompt; display; tmode; dir; echo; els; iniz; deiniz and unlink. 

As the shellscript stands, it is setup to run the stylograph wordprocessor, but it could be equally 
used to run Sled, Edit or perhaps even window writer using my "window tidy" Basic09 procedure. 

The first thing that the script does is to load the prompt utility (must be in current execution 
directory), to speed up file selection prompt writing. Prompt is simply an echo facility, but without a 
<CR> at the end! 

Ue then set the first error trap, and define variable. 1 to a string representing the pathname to your 
document directory. Then we open a number of overlay windows to give the nifty shaded box effect. One 
thing that should be noted here is that I am assuming that the utility is run from an 80 column 
windint/grf int type window. It doesn't matter whether it is a graphics or text type window. 

Then the page length is set to 11, to allow for the overlay window size, and an address marker for 
the start of a loop is incorporated. Then we do a dir of the directory that was set in variable. 1 above. 
The following line, display a, simply writes a blank line. We then change the colour of the foreground, 
and display a message. 

After printing a prompt, we ask for terminal input (the Line is : var.1), and then check if the string 
entered is a directory. If it is a directory, we change to it, and return to loopl . If it is blank, or a 
filename (or anything else!) we proceed to loop2. The next four lines simply close the overlay windows. 

You may set the strings referenced in the next two lines to suit your own system. After processing 
those two lines, the next sequence, display lb 20 02 .... opens a device window using window descriptor U7 
(in this case). You may change this to any available descriptor, however, it is important that, when you 
run your finished shellscript, that the window is not already defined, nor should there be a shell running 
in it!! This is important. After this we reset the error trap, so that if an error occurs in the remainder 
of the shellscript, we can close the device window, and deiniz it before quitting. 

Ue then initialize the window. Dependant on how your system is setup, the window may already be 
initialized. It does not matter if it already is inized, but if it's not, then we have to do this in order 
to successfully select it. And select it is exactly what we do on the very next line. After that, the new 
window should appear on the screen. The cursor is turned off, and we then open some further overlay windows 
on the new device window. 

You will note that the Lines read "display 1b 22 00 0c >/w7". The extra digit (0c) 

in these Lines clears the window. In order for an overlay window to be displayed on a device window other 
that the one from which it was crested, something actually needs to be written to it. The 0c accomplishes 
this. After these overlay windows are opened, we use the prompt command to write a message (without a <CR> 
at the end) so that it does not scroll off a one-line window, and then print the filename. 

The next four display sequences then close the overlay windows. Because these windows do not save 
the screen underneath them, they appear to be left on the screen. Next we reposition the cursor, make the 
text flash, write another message, and then turn the flashing off. The next line is the line which actually 
calls the editor programme (stylo in this case) with the selected filename as an argument to it. 

The remainder of the script simply handles shutdown and returns the system to it's original state. 

If you have any problems or questions you can call me on (07) 375-3236. Cheers Don Berrie. 

ooooooooooOOOOOOOOOOoooooooooo 
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DATA ON CALLS TO THE U.S.A. & CANADA. 



Reverse Charge Calls dial 0101 
Charge Rates ect dial 0102 
Access Code 0011 1 



Normal Rates $1.70/minute 

Off Peak Rates $1.17/minute (Times as follows) 



Time Differences 



Washington State 19 hours behind E.D.S.T 



New York 16 hours behind E.D.S.T 



Quebec 18 hours behind E.D.S.T. 



Arizona 17 hours behind E.D.S.T. 



8.00pm to 6.00am 


Sunday to 


Friday 




All day Saturday 








AUST 


U.S.A. 






3.00am 


8.00am 


(previous 


day) 


6.00am 


11.00am 






9.00am 


2.00pm 






12.00am 


5.00pm 






AUST 


U.S.A. 






12.00mn 


8.00am 


(previous 


day) 


3.00am 


11.00am 






6.00am 


2.00pm 






9.00am 


5.00pm 






AUST 


CANADA 






2.00am 


8.00am 


(previous 


day) 


5. 00am 


11.00am 






8.00am 


2.00pm 






11.00am 


5.00pm 






AUST 


U.S.A. 






1 .00am 


8.00am 


(previous 


day) 


4.00am 


11.00am 






7.00am 


2.00pm 






10.00am 


5.00pm 







* NOTE: 

The above are for AUST. Eastern daylight saving time. At the return of standard time the 
difference will INCREASE by ONE hour. This will mean that where a difference of 17 hours now exists, it 
will become 16 hours. A change from 7 hours to 8 hours time difference. Also, I understand that "Daylight 
Saving" is used throughout the U.S.A. & possibly Canada during their summer months, although J am not aware 
how extensively. For the exercise this would be an example. 

Aust Daylight Saving. - Arizona is 17 hours behind us. 
Aust Standard Time. (E.S. T. ) - Arizona is 16 hours behind us. 
Aust Standard Time. (E.S. T. ) with U.S. A. or Canada on daylight saving then 
- Arizona is 15 hours behind us. 

Footnote. 

During the last eight months I have phoned and faxed the U.S.A. and Canada more times than my 
wallet would have liked. For this reason I found that the above information as a hard copy, was most 
useful. 

I hope this information may be of assistance to other OS-9'ers 
in their quest to search out or purchase from the extensive 
overseas market. 

Last, but not least, the assistance provided by most suppliers 
has been superb. In some cases, only seven days from placing an 
order to delivery. 



Regards 



Rob MacKay. 

(Brisbane Users Group) 
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